home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
14000000
/
14030000
/
shared.dir
/
00907_Script_907
next >
Wrap
Text File
|
1995-11-17
|
1KB
|
38 lines
-- handler to animate a button. Put the number of frames
-- to use to animate (i.e. how many castmembers) into
-- "theCast". Put the length of delay between frames
-- required in clicks into "theClicks".
-- Make sure the cast members are arranged sequentially
-- in the cast window.
on animate theCast, theClicks
-- put sound instruction here
sound playFile 1, "Click.aif"
put the clickOn into whichChannel
put the castNum of sprite whichChannel into whichCast
set i = whichCast + 1
repeat while i < ( whichCast + theCast)
set the castNum of sprite whichChannel = i
updateStage
wait theClicks
set i = i + 1
end repeat
set the castNum of sprite whichChannel = whichCast
updateStage
end animate
---------------------------------------------------
-- handler to create a pause
on wait theClicks
put the timer into theTime
repeat while the timer < ( theTime + theClicks )
end repeat
end wait
--------------------------------------------------